home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00082_SinglePointPusher.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  995 b   |  58 lines
  1. --
  2. -- SinglePointPusher
  3. --
  4.  
  5. property ancestor
  6. property currSpr
  7.  
  8. on new me
  9.   -- set constants:
  10.   
  11.   
  12.   -- initialize the ancestor:
  13.   set ancestor = new (script "DragDropSetup")
  14.   
  15.   -- do other initializations:
  16.   set currSpr = 0
  17.   return me
  18. end
  19.  
  20.  
  21. on destruct me
  22.   if objectP (ancestor) then destruct (ancestor)
  23.   set ancestor = 0
  24. end
  25.  
  26.  
  27. -- push all the draggables off screen, whether played or not
  28.  
  29. on pushOffDraggables me
  30.   set dList = the draggableList of me
  31.   
  32.   set lst = []
  33.   set num = count (dList)
  34.   repeat with i = 1 to num
  35.     add (lst, getPropAt (dList, i))
  36.   end repeat
  37.   
  38.   repeat with spr in lst
  39.     moveOffScreen (me, spr)
  40.   end repeat
  41. end
  42.  
  43.  
  44. -- it will push one of the remaining draggables on screen for play.
  45. -- return the sprite of the draggable.
  46.  
  47. on pushOnDraggable me
  48.   if the randomFlag of me then set currSpr = getRandomDraggable (me)
  49.   else set currSpr = getNextDraggable (me)
  50.   moveOnScreen (me, currSpr)
  51.   return currSpr
  52. end
  53.  
  54.  
  55. on getCurrentDraggable me
  56.   return currSpr
  57. end
  58.